MODULE CBALANCE_CONST
INCLUDE 'soil.inc'
     REAL (KIND=8), PARAMETER :: a15(nv2) = (/4.0, 2.53, 2.77, 48.0, 48.0, 9.0, 100.0 /)
END MODULE CBALANCE_CONST
